home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / SWDOS12 / DOSFREE.ASM < prev    next >
Assembly Source File  |  1994-07-28  |  828b  |  30 lines
  1. ;******************************************************************
  2. ;*                           DOSFREE.ASM                          *
  3. ;*          Source file for SoftWeyr enhanced DOS toolbox         *
  4. ;*                           version 1.0                          *
  5. ;*                 Copyright (c) by SoftWeyr,1994                 *
  6. ;******************************************************************
  7. MODEL TPASCAL
  8. LOCALS
  9. .DATA
  10.      EXTRN DosError :word
  11. .CODE
  12.          Public DosFree
  13. DosFree  Proc Far P:DWord
  14.           Mov AX,Word Ptr P[0]
  15.           SUB AX,AX
  16.           MOV AX,204
  17.           JZ MemErr
  18.           MOV AX,Word Ptr P[2]
  19.           MOV ES,AX
  20.           MOV AH,49H
  21.           INT 21H
  22.           JC MemErr
  23.           XOR AX,Ax
  24. MemErr:   MOV DosError,AX
  25.           RET
  26.         EndP
  27. END
  28.  
  29.  
  30.